home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01b.txt / 000077_icon-group-sender_Tue Jun 19 13:15:51 2001.msg < prev    next >
Internet Message Format  |  2002-01-03  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id f5JKDd612699
  4.     for icon-group-addresses; Tue, 19 Jun 2001 13:13:39 -0700 (MST)
  5. Message-Id: <200106192013.f5JKDd612699@baskerville.CS.Arizona.EDU>
  6. Date: Tue, 19 Jun 2001 08:24:44 -0700
  7. From: Steve Wampler <swampler@noao.edu>
  8. X-Accept-Language: en
  9. To: deborah_fairwater@hotmail.com
  10. CC: icon-group@cs.arizona.edu
  11. Subject: Re: code needed!
  12. Errors-To: icon-group-errors@cs.arizona.edu
  13. Status: RO
  14. Content-Length: 1912
  15.  
  16. Chris.D.Tenaglia@jci.com wrote:
  17. > 
  18. > #
  19. > # file : padsent.icn
  20. > # desc : add extra space to end of each sentence
  21. > # use : padsent <infile >outfile
  22. > #
  23. > procedure main()
  24. > 
  25. >     while line := read() do
  26. >         {
  27. >         work := reverse(line)
  28. >         text   := ""
  29. >         every i := 1 to *work do
  30. >      {
  31. >                 text ||:= work[i]
  32. >      if (work[i] == " ") & (work[i+1] == ".") then text ||:= " "
  33. >                 if (work[i] == " ") & (work[i+1] == "?") then text ||:= " "
  34. >                 if (work[i] == " ") & (work[i+1] == "!") then text ||:= " "
  35.  
  36. Just to show an alternative formulation, the above three lines lines could
  37. also be written as:
  38.  
  39.        if work[i+:2] == (" ." | " ?" | " !") then text ||:= " "
  40.  
  41. But a full-up string scanning solution might be useful and wouldn't need
  42. the string reversals:
  43.  
  44. # Danger, Will Robinson - untested code follows!
  45.  
  46. procedure main()
  47.     every write(repair(!&input))
  48. end
  49.  
  50. procedure repair(line, sentenceEnders)
  51.     # setup default sentence-ending punctuation if 2nd argument is missing
  52.     /sentenceEnders := '.?!'
  53.  
  54.     s := ""
  55.     line ? {
  56.         while s ||:= tab(upto(sentenceEnders)) || move(1) do {
  57.             # Don't add a second blank if it's already there
  58.             s ||:= =" " || (=" " | " ")
  59.             }
  60.         s ||:= tab(0)
  61.         }
  62.     return s
  63. end
  64.  
  65. >      }
  66. >         write(reverse(text))
  67. >         }
  68. >   end
  69. > 
  70. > 
  71. >                     deborah_fairwater@h
  72. >                     otmail.com                 To:     icon-group@CS.Arizona.EDU
  73. >                                                cc:
  74. >                     06/16/01 03:53 PM          Subject:     code needed!
  75. > 
  76. > 
  77. > 
  78. > Help - I need the icon code that will look at an input text file and
  79. > replace single spaces between sentences with double spaces - can anyone
  80. > help?
  81. > 
  82. > Thank you.
  83.  
  84. --
  85. Steve Wampler-  SOLIS Project, National Solar Observatory
  86. swampler@noao.edu
  87.